home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / DISKSPAC.INT < prev    next >
Text File  |  1990-01-23  |  84b  |  4 lines

  1.  
  2. function disk_space(disk: char): longint;
  3.    {report space on drive in k bytes}
  4.